(mail-do-fcc): Don't write a newline before the text.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index e0fa000fef4c27c1d5a649d395fde33ca23950d4..5b5606cc631cb2d99bef6200c2ab1b30fb27d22d 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -547,10 +547,7 @@ the user from the mailer."
                      (if max (narrow-to-region (point-min) max))))))
            ;; Else append to the file directly.
            (write-region
-            ;; Include a blank line before if file already exists.
-
-            (if (file-exists-p (car fcc-list)) (point-min) (1+ (point-min)))
-            (point-max) (car fcc-list) t)))
+            (1+ (point-min)) (point-max) (car fcc-list) t)))
        (setq fcc-list (cdr fcc-list))))
     (kill-buffer tembuf)))